home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / tviewx / setup.exe / file0016_c7eb3_c92fb.bin (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-03-22  |  44.4 KB  |  1,138 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Object = "{9A6141AE-D028-11D2-86A1-444553540000}#1.0#0"; "TVIEWX.OCX"
  4. Begin VB.Form Form1 
  5.    Caption         =   "Imca Systems OutlineTreeViewX ActiveX Control"
  6.    ClientHeight    =   6240
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   6825
  10.    Icon            =   "Form1.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   416
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   455
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin TabDlg.SSTab SSTab1 
  17.       Height          =   6075
  18.       Left            =   90
  19.       TabIndex        =   1
  20.       Top             =   150
  21.       Width           =   6765
  22.       _ExtentX        =   11933
  23.       _ExtentY        =   10716
  24.       _Version        =   327680
  25.       Style           =   1
  26.       Tabs            =   7
  27.       Tab             =   2
  28.       TabHeight       =   529
  29.       ShowFocusRect   =   0   'False
  30.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  31.          Name            =   "Tahoma"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       TabCaption(0)   =   "About TOutlineTreeViewX"
  40.       TabPicture(0)   =   "Form1.frx":030A
  41.       Tab(0).ControlCount=   1
  42.       Tab(0).ControlEnabled=   0   'False
  43.       Tab(0).Control(0)=   "Text1"
  44.       Tab(0).Control(0).Enabled=   0   'False
  45.       TabCaption(1)   =   "Get and Set Data"
  46.       TabPicture(1)   =   "Form1.frx":0326
  47.       Tab(1).ControlCount=   4
  48.       Tab(1).ControlEnabled=   0   'False
  49.       Tab(1).Control(0)=   "Label1(0)"
  50.       Tab(1).Control(0).Enabled=   0   'False
  51.       Tab(1).Control(1)=   "Label1(1)"
  52.       Tab(1).Control(1).Enabled=   0   'False
  53.       Tab(1).Control(2)=   "Label1(2)"
  54.       Tab(1).Control(2).Enabled=   0   'False
  55.       Tab(1).Control(3)=   "OutlineTreeViewX1"
  56.       Tab(1).Control(3).Enabled=   0   'False
  57.       TabCaption(2)   =   "TreeLogic: Checkboxes/OptionButtons"
  58.       TabPicture(2)   =   "Form1.frx":0342
  59.       Tab(2).ControlCount=   2
  60.       Tab(2).ControlEnabled=   -1  'True
  61.       Tab(2).Control(0)=   "Label1(3)"
  62.       Tab(2).Control(0).Enabled=   0   'False
  63.       Tab(2).Control(1)=   "Logictree"
  64.       Tab(2).Control(1).Enabled=   0   'False
  65.       TabCaption(3)   =   "Inplace Editors"
  66.       TabPicture(3)   =   "Form1.frx":035E
  67.       Tab(3).ControlCount=   3
  68.       Tab(3).ControlEnabled=   0   'False
  69.       Tab(3).Control(0)=   "Label1(4)"
  70.       Tab(3).Control(0).Enabled=   0   'False
  71.       Tab(3).Control(1)=   "Label1(5)"
  72.       Tab(3).Control(1).Enabled=   0   'False
  73.       Tab(3).Control(2)=   "OutlineTreeViewX2"
  74.       Tab(3).Control(2).Enabled=   0   'False
  75.       TabCaption(4)   =   "Manipulating TreeOptions"
  76.       TabPicture(4)   =   "Form1.frx":037A
  77.       Tab(4).ControlCount=   3
  78.       Tab(4).ControlEnabled=   0   'False
  79.       Tab(4).Control(0)=   "Label2"
  80.       Tab(4).Control(0).Enabled=   0   'False
  81.       Tab(4).Control(1)=   "OutlineTreeViewX4"
  82.       Tab(4).Control(1).Enabled=   0   'False
  83.       Tab(4).Control(2)=   "OutlineTreeViewX3"
  84.       Tab(4).Control(2).Enabled=   0   'False
  85.       TabCaption(5)   =   "Without requirement ComCtl 4.7+"
  86.       TabPicture(5)   =   "Form1.frx":0396
  87.       Tab(5).ControlCount=   8
  88.       Tab(5).ControlEnabled=   0   'False
  89.       Tab(5).Control(0)=   "OutlineTreeViewX5"
  90.       Tab(5).Control(0).Enabled=   0   'False
  91.       Tab(5).Control(1)=   "Check7"
  92.       Tab(5).Control(1).Enabled=   -1  'True
  93.       Tab(5).Control(2)=   "Check6"
  94.       Tab(5).Control(2).Enabled=   -1  'True
  95.       Tab(5).Control(3)=   "Check5"
  96.       Tab(5).Control(3).Enabled=   -1  'True
  97.       Tab(5).Control(4)=   "Check4"
  98.       Tab(5).Control(4).Enabled=   -1  'True
  99.       Tab(5).Control(5)=   "Check3"
  100.       Tab(5).Control(5).Enabled=   -1  'True
  101.       Tab(5).Control(6)=   "Check2"
  102.       Tab(5).Control(6).Enabled=   -1  'True
  103.       Tab(5).Control(7)=   "Check1"
  104.       Tab(5).Control(7).Enabled=   -1  'True
  105.       TabCaption(6)   =   "IE4 ExplorerBar and SectionsList"
  106.       TabPicture(6)   =   "Form1.frx":03B2
  107.       Tab(6).ControlCount=   2
  108.       Tab(6).ControlEnabled=   0   'False
  109.       Tab(6).Control(0)=   "OutlineTreeViewX6"
  110.       Tab(6).Control(0).Enabled=   0   'False
  111.       Tab(6).Control(1)=   "OutlineTreeViewX7"
  112.       Tab(6).Control(1).Enabled=   0   'False
  113.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX7 
  114.          Height          =   4815
  115.          Left            =   -71820
  116.          TabIndex        =   22
  117.          Top             =   1080
  118.          Width           =   2925
  119.          Style           =   1
  120.          IntegralHeightItem=   1
  121.          Customizable    =   0   'False
  122.          CustomizeMenustring=   "Customize..."
  123.          ClickKey        =   113
  124.          Flat            =   -1  'True
  125.          WidthOutline    =   120
  126.          HeadersHeight   =   17
  127.          ValuesText      =   "Values"
  128.          PropText        =   "SectionsList"
  129.          BackgroundColor =   12632256
  130.          SelectedBackgroundColor=   12632256
  131.          Borderstyle     =   0
  132.          Ctl3D           =   0   'False
  133.          AutoExpand      =   -1  'True
  134.          HotTrack        =   -1  'True
  135.          ToolTips        =   0   'False
  136.          TooltipColor    =   -2147483624
  137.          ToolTipPause    =   2000
  138.          BiDiMode        =   0
  139.          DragCursor      =   -12
  140.          ChangeDelay     =   0
  141.          Object.DragMode        =   0
  142.          Enabled         =   -1  'True
  143.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  144.             Name            =   "Tahoma"
  145.             Size            =   9.75
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Indent          =   19
  153.          ParentColor     =   0   'False
  154.          ParentFont      =   0   'False
  155.          SortType        =   0
  156.          Object.Visible         =   -1  'True
  157.          DoubleBuffered  =   0   'False
  158.          Cursor          =   0
  159.          InternalProps   =   $"Form1.frx":03CE
  160.          TreeShowlines   =   0   'False
  161.          TreeShowLogic   =   0   'False
  162.          TreeShowButtons =   0   'False
  163.          TreeNoPaintNoChilds=   -1  'True
  164.          TreeDrawGrid    =   -1  'True
  165.          TreeResizeCols  =   -1  'True
  166.          TreeEditing     =   -1  'True
  167.          TreeAlwaysShowEditor=   0   'False
  168.          TreePopupOnClick=   0   'False
  169.          TreeRefreshChilds=   0   'False
  170.          TreeRefreshParents=   0   'False
  171.          TreeDrawImages  =   -1  'True
  172.          TreeUseIntegralHeight=   0   'False
  173.          TreeShowHeaders =   -1  'True
  174.          TreeWordWrap    =   0   'False
  175.          TreeDrawSplit   =   -1  'True
  176.          Object.Align           =   0
  177.          DrawTransparent =   -1  'True
  178.          ButtonCheckedIndex=   -1
  179.          ButtonUnCheckedIndex=   -1
  180.          ButtonGrayedIndex=   -1
  181.          ButtonOptionedIndex=   -1
  182.          ButtonUnOptionedIndex=   -1
  183.          ButtonExpandedIndex=   -1
  184.          ButtonCollapsedIndex=   -1
  185.          ButtonNonChildIndex=   -1
  186.       End
  187.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX5 
  188.          Height          =   4725
  189.          Left            =   -74880
  190.          TabIndex        =   12
  191.          Top             =   1050
  192.          Width           =   4065
  193.          Style           =   0
  194.          IntegralHeightItem=   2
  195.          Customizable    =   -1  'True
  196.          CustomizeMenustring=   "Customize..."
  197.          ClickKey        =   113
  198.          Flat            =   0   'False
  199.          WidthOutline    =   150
  200.          HeadersHeight   =   17
  201.          ValuesText      =   "Values"
  202.          PropText        =   "Items"
  203.          BackgroundColor =   14737632
  204.          SelectedBackgroundColor=   12632064
  205.          Borderstyle     =   1
  206.          Ctl3D           =   -1  'True
  207.          AutoExpand      =   0   'False
  208.          HotTrack        =   -1  'True
  209.          ToolTips        =   0   'False
  210.          TooltipColor    =   -2147483624
  211.          ToolTipPause    =   2000
  212.          BiDiMode        =   0
  213.          DragCursor      =   -12
  214.          ChangeDelay     =   0
  215.          Object.DragMode        =   0
  216.          Enabled         =   -1  'True
  217.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  218.             Name            =   "Tahoma"
  219.             Size            =   9
  220.             Charset         =   0
  221.             Weight          =   400
  222.             Underline       =   0   'False
  223.             Italic          =   0   'False
  224.             Strikethrough   =   0   'False
  225.          EndProperty
  226.          Indent          =   19
  227.          ParentColor     =   0   'False
  228.          ParentFont      =   0   'False
  229.          SortType        =   0
  230.          Object.Visible         =   -1  'True
  231.          DoubleBuffered  =   0   'False
  232.          Cursor          =   0
  233.          InternalProps   =   $"Form1.frx":2193
  234.          TreeShowlines   =   -1  'True
  235.          TreeShowLogic   =   0   'False
  236.          TreeShowButtons =   -1  'True
  237.          TreeNoPaintNoChilds=   -1  'True
  238.          TreeDrawGrid    =   -1  'True
  239.          TreeResizeCols  =   -1  'True
  240.          TreeEditing     =   -1  'True
  241.          TreeAlwaysShowEditor=   0   'False
  242.          TreePopupOnClick=   0   'False
  243.          TreeRefreshChilds=   -1  'True
  244.          TreeRefreshParents=   -1  'True
  245.          TreeDrawImages  =   0   'False
  246.          TreeUseIntegralHeight=   -1  'True
  247.          TreeShowHeaders =   -1  'True
  248.          TreeWordWrap    =   -1  'True
  249.          TreeDrawSplit   =   -1  'True
  250.          Object.Align           =   0
  251.          DrawTransparent =   -1  'True
  252.          ButtonCheckedIndex=   -1
  253.          ButtonUnCheckedIndex=   -1
  254.          ButtonGrayedIndex=   -1
  255.          ButtonOptionedIndex=   -1
  256.          ButtonUnOptionedIndex=   0
  257.          ButtonExpandedIndex=   1
  258.          ButtonCollapsedIndex=   0
  259.          ButtonNonChildIndex=   -1
  260.       End
  261.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX3 
  262.          Height          =   4335
  263.          Left            =   -74910
  264.          TabIndex        =   7
  265.          Top             =   1110
  266.          Width           =   3375
  267.          Style           =   0
  268.          IntegralHeightItem=   1
  269.          Customizable    =   -1  'True
  270.          CustomizeMenustring=   "Customize..."
  271.          ClickKey        =   113
  272.          Flat            =   0   'False
  273.          WidthOutline    =   150
  274.          HeadersHeight   =   17
  275.          ValuesText      =   "Values"
  276.          PropText        =   "Items"
  277.          BackgroundColor =   8454143
  278.          SelectedBackgroundColor=   15265023
  279.          Borderstyle     =   1
  280.          Ctl3D           =   -1  'True
  281.          AutoExpand      =   0   'False
  282.          HotTrack        =   -1  'True
  283.          ToolTips        =   0   'False
  284.          TooltipColor    =   -2147483624
  285.          ToolTipPause    =   2000
  286.          BiDiMode        =   0
  287.          DragCursor      =   -12
  288.          ChangeDelay     =   0
  289.          Object.DragMode        =   0
  290.          Enabled         =   -1  'True
  291.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  292.             Name            =   "Tahoma"
  293.             Size            =   9
  294.             Charset         =   0
  295.             Weight          =   400
  296.             Underline       =   0   'False
  297.             Italic          =   0   'False
  298.             Strikethrough   =   0   'False
  299.          EndProperty
  300.          Indent          =   19
  301.          ParentColor     =   0   'False
  302.          ParentFont      =   0   'False
  303.          SortType        =   0
  304.          Object.Visible         =   -1  'True
  305.          DoubleBuffered  =   0   'False
  306.          Cursor          =   0
  307.          InternalProps   =   $"Form1.frx":39CA
  308.          TreeShowlines   =   -1  'True
  309.          TreeShowLogic   =   0   'False
  310.          TreeShowButtons =   -1  'True
  311.          TreeNoPaintNoChilds=   -1  'True
  312.          TreeDrawGrid    =   -1  'True
  313.          TreeResizeCols  =   -1  'True
  314.          TreeEditing     =   -1  'True
  315.          TreeAlwaysShowEditor=   0   'False
  316.          TreePopupOnClick=   0   'False
  317.          TreeRefreshChilds=   -1  'True
  318.          TreeRefreshParents=   -1  'True
  319.          TreeDrawImages  =   0   'False
  320.          TreeUseIntegralHeight=   0   'False
  321.          TreeShowHeaders =   -1  'True
  322.          TreeWordWrap    =   0   'False
  323.          TreeDrawSplit   =   -1  'True
  324.          Object.Align           =   0
  325.          DrawTransparent =   -1  'True
  326.          ButtonCheckedIndex=   0
  327.          ButtonUnCheckedIndex=   1
  328.          ButtonGrayedIndex=   2
  329.          ButtonOptionedIndex=   3
  330.          ButtonUnOptionedIndex=   4
  331.          ButtonExpandedIndex=   6
  332.          ButtonCollapsedIndex=   5
  333.          ButtonNonChildIndex=   7
  334.       End
  335.       Begin ISTViewX.OutlineTreeViewX Logictree 
  336.          Height          =   4095
  337.          Left            =   120
  338.          TabIndex        =   4
  339.          Top             =   1710
  340.          Width           =   4695
  341.          Style           =   0
  342.          IntegralHeightItem=   1
  343.          Customizable    =   0   'False
  344.          CustomizeMenustring=   "Customize..."
  345.          ClickKey        =   113
  346.          Flat            =   -1  'True
  347.          WidthOutline    =   0
  348.          HeadersHeight   =   17
  349.          ValuesText      =   ""
  350.          PropText        =   "Show How logic Work!!!"
  351.          BackgroundColor =   14737632
  352.          SelectedBackgroundColor=   16777152
  353.          Borderstyle     =   0
  354.          Ctl3D           =   0   'False
  355.          AutoExpand      =   0   'False
  356.          HotTrack        =   -1  'True
  357.          ToolTips        =   0   'False
  358.          TooltipColor    =   -2147483624
  359.          ToolTipPause    =   2000
  360.          BiDiMode        =   0
  361.          DragCursor      =   -12
  362.          ChangeDelay     =   0
  363.          Object.DragMode        =   0
  364.          Enabled         =   -1  'True
  365.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  366.             Name            =   "Tahoma"
  367.             Size            =   9
  368.             Charset         =   0
  369.             Weight          =   400
  370.             Underline       =   0   'False
  371.             Italic          =   0   'False
  372.             Strikethrough   =   0   'False
  373.          EndProperty
  374.          Indent          =   19
  375.          ParentColor     =   0   'False
  376.          ParentFont      =   0   'False
  377.          SortType        =   0
  378.          Object.Visible         =   -1  'True
  379.          DoubleBuffered  =   0   'False
  380.          Cursor          =   0
  381.          InternalProps   =   $"Form1.frx":6672
  382.          TreeShowlines   =   -1  'True
  383.          TreeShowLogic   =   -1  'True
  384.          TreeShowButtons =   -1  'True
  385.          TreeNoPaintNoChilds=   -1  'True
  386.          TreeDrawGrid    =   -1  'True
  387.          TreeResizeCols  =   0   'False
  388.          TreeEditing     =   0   'False
  389.          TreeAlwaysShowEditor=   0   'False
  390.          TreePopupOnClick=   0   'False
  391.          TreeRefreshChilds=   -1  'True
  392.          TreeRefreshParents=   -1  'True
  393.          TreeDrawImages  =   0   'False
  394.          TreeUseIntegralHeight=   0   'False
  395.          TreeShowHeaders =   -1  'True
  396.          TreeWordWrap    =   0   'False
  397.          TreeDrawSplit   =   -1  'True
  398.          Object.Align           =   0
  399.          DrawTransparent =   -1  'True
  400.          ButtonCheckedIndex=   0
  401.          ButtonUnCheckedIndex=   1
  402.          ButtonGrayedIndex=   2
  403.          ButtonOptionedIndex=   3
  404.          ButtonUnOptionedIndex=   4
  405.          ButtonExpandedIndex=   5
  406.          ButtonCollapsedIndex=   6
  407.          ButtonNonChildIndex=   -1
  408.       End
  409.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX2 
  410.          Height          =   3855
  411.          Left            =   -74880
  412.          TabIndex        =   6
  413.          Top             =   1830
  414.          Width           =   5535
  415.          Style           =   0
  416.          IntegralHeightItem=   1
  417.          Customizable    =   0   'False
  418.          CustomizeMenustring=   "Customize..."
  419.          ClickKey        =   113
  420.          Flat            =   0   'False
  421.          WidthOutline    =   250
  422.          HeadersHeight   =   17
  423.          ValuesText      =   "Cells"
  424.          PropText        =   "Types Inplace Editors"
  425.          BackgroundColor =   8454143
  426.          SelectedBackgroundColor=   8421631
  427.          Borderstyle     =   1
  428.          Ctl3D           =   -1  'True
  429.          AutoExpand      =   0   'False
  430.          HotTrack        =   -1  'True
  431.          ToolTips        =   0   'False
  432.          TooltipColor    =   -2147483624
  433.          ToolTipPause    =   2000
  434.          BiDiMode        =   0
  435.          DragCursor      =   -12
  436.          ChangeDelay     =   0
  437.          Object.DragMode        =   0
  438.          Enabled         =   -1  'True
  439.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  440.             Name            =   "MS Sans Serif"
  441.             Size            =   8.25
  442.             Charset         =   204
  443.             Weight          =   400
  444.             Underline       =   0   'False
  445.             Italic          =   0   'False
  446.             Strikethrough   =   0   'False
  447.          EndProperty
  448.          Indent          =   19
  449.          ParentColor     =   0   'False
  450.          ParentFont      =   0   'False
  451.          SortType        =   0
  452.          Object.Visible         =   -1  'True
  453.          DoubleBuffered  =   0   'False
  454.          Cursor          =   0
  455.          InternalProps   =   $"Form1.frx":9898
  456.          TreeShowlines   =   0   'False
  457.          TreeShowLogic   =   0   'False
  458.          TreeShowButtons =   0   'False
  459.          TreeNoPaintNoChilds=   -1  'True
  460.          TreeDrawGrid    =   -1  'True
  461.          TreeResizeCols  =   -1  'True
  462.          TreeEditing     =   -1  'True
  463.          TreeAlwaysShowEditor=   0   'False
  464.          TreePopupOnClick=   0   'False
  465.          TreeRefreshChilds=   -1  'True
  466.          TreeRefreshParents=   -1  'True
  467.          TreeDrawImages  =   -1  'True
  468.          TreeUseIntegralHeight=   0   'False
  469.          TreeShowHeaders =   -1  'True
  470.          TreeWordWrap    =   0   'False
  471.          TreeDrawSplit   =   -1  'True
  472.          Object.Align           =   0
  473.          DrawTransparent =   -1  'True
  474.          ButtonCheckedIndex=   -1
  475.          ButtonUnCheckedIndex=   -1
  476.          ButtonGrayedIndex=   -1
  477.          ButtonOptionedIndex=   -1
  478.          ButtonUnOptionedIndex=   -1
  479.          ButtonExpandedIndex=   -1
  480.          ButtonCollapsedIndex=   -1
  481.          ButtonNonChildIndex=   -1
  482.       End
  483.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX4 
  484.          Height          =   4065
  485.          Left            =   -71490
  486.          TabIndex        =   8
  487.          Top             =   1410
  488.          Width           =   2175
  489.          Style           =   0
  490.          IntegralHeightItem=   1
  491.          Customizable    =   0   'False
  492.          CustomizeMenustring=   "Customize..."
  493.          ClickKey        =   113
  494.          Flat            =   -1  'True
  495.          WidthOutline    =   0
  496.          HeadersHeight   =   17
  497.          ValuesText      =   ""
  498.          PropText        =   "Options"
  499.          BackgroundColor =   8454143
  500.          SelectedBackgroundColor=   12630192
  501.          Borderstyle     =   0
  502.          Ctl3D           =   0   'False
  503.          AutoExpand      =   0   'False
  504.          HotTrack        =   0   'False
  505.          ToolTips        =   0   'False
  506.          TooltipColor    =   -2147483624
  507.          ToolTipPause    =   2000
  508.          BiDiMode        =   0
  509.          DragCursor      =   -12
  510.          ChangeDelay     =   0
  511.          Object.DragMode        =   0
  512.          Enabled         =   -1  'True
  513.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  514.             Name            =   "Tahoma"
  515.             Size            =   9
  516.             Charset         =   0
  517.             Weight          =   400
  518.             Underline       =   0   'False
  519.             Italic          =   0   'False
  520.             Strikethrough   =   0   'False
  521.          EndProperty
  522.          Indent          =   19
  523.          ParentColor     =   0   'False
  524.          ParentFont      =   0   'False
  525.          SortType        =   0
  526.          Object.Visible         =   -1  'True
  527.          DoubleBuffered  =   0   'False
  528.          Cursor          =   0
  529.          InternalProps   =   $"Form1.frx":C3CA
  530.          TreeShowlines   =   0   'False
  531.          TreeShowLogic   =   -1  'True
  532.          TreeShowButtons =   0   'False
  533.          TreeNoPaintNoChilds=   0   'False
  534.          TreeDrawGrid    =   -1  'True
  535.          TreeResizeCols  =   -1  'True
  536.          TreeEditing     =   -1  'True
  537.          TreeAlwaysShowEditor=   0   'False
  538.          TreePopupOnClick=   0   'False
  539.          TreeRefreshChilds=   -1  'True
  540.          TreeRefreshParents=   -1  'True
  541.          TreeDrawImages  =   0   'False
  542.          TreeUseIntegralHeight=   0   'False
  543.          TreeShowHeaders =   -1  'True
  544.          TreeWordWrap    =   0   'False
  545.          TreeDrawSplit   =   -1  'True
  546.          Object.Align           =   0
  547.          DrawTransparent =   -1  'True
  548.          ButtonCheckedIndex=   0
  549.          ButtonUnCheckedIndex=   1
  550.          ButtonGrayedIndex=   -1
  551.          ButtonOptionedIndex=   -1
  552.          ButtonUnOptionedIndex=   -1
  553.          ButtonExpandedIndex=   -1
  554.          ButtonCollapsedIndex=   -1
  555.          ButtonNonChildIndex=   -1
  556.       End
  557.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX6 
  558.          Height          =   4815
  559.          Left            =   -74880
  560.          TabIndex        =   13
  561.          Top             =   1080
  562.          Width           =   2925
  563.          Style           =   1
  564.          IntegralHeightItem=   1
  565.          Customizable    =   0   'False
  566.          CustomizeMenustring=   "Customize..."
  567.          ClickKey        =   113
  568.          Flat            =   -1  'True
  569.          WidthOutline    =   0
  570.          HeadersHeight   =   17
  571.          ValuesText      =   ""
  572.          PropText        =   "Explorer Bar"
  573.          BackgroundColor =   12632256
  574.          SelectedBackgroundColor=   12632256
  575.          Borderstyle     =   0
  576.          Ctl3D           =   0   'False
  577.          AutoExpand      =   -1  'True
  578.          HotTrack        =   -1  'True
  579.          ToolTips        =   0   'False
  580.          TooltipColor    =   -2147483624
  581.          ToolTipPause    =   2000
  582.          BiDiMode        =   0
  583.          DragCursor      =   -12
  584.          ChangeDelay     =   0
  585.          Object.DragMode        =   0
  586.          Enabled         =   -1  'True
  587.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  588.             Name            =   "Tahoma"
  589.             Size            =   9.75
  590.             Charset         =   0
  591.             Weight          =   400
  592.             Underline       =   0   'False
  593.             Italic          =   0   'False
  594.             Strikethrough   =   0   'False
  595.          EndProperty
  596.          Indent          =   19
  597.          ParentColor     =   0   'False
  598.          ParentFont      =   0   'False
  599.          SortType        =   0
  600.          Object.Visible         =   -1  'True
  601.          DoubleBuffered  =   0   'False
  602.          Cursor          =   0
  603.          InternalProps   =   $"Form1.frx":D583
  604.          TreeShowlines   =   0   'False
  605.          TreeShowLogic   =   0   'False
  606.          TreeShowButtons =   0   'False
  607.          TreeNoPaintNoChilds=   -1  'True
  608.          TreeDrawGrid    =   -1  'True
  609.          TreeResizeCols  =   -1  'True
  610.          TreeEditing     =   0   'False
  611.          TreeAlwaysShowEditor=   0   'False
  612.          TreePopupOnClick=   0   'False
  613.          TreeRefreshChilds=   0   'False
  614.          TreeRefreshParents=   0   'False
  615.          TreeDrawImages  =   -1  'True
  616.          TreeUseIntegralHeight=   0   'False
  617.          TreeShowHeaders =   -1  'True
  618.          TreeWordWrap    =   0   'False
  619.          TreeDrawSplit   =   0   'False
  620.          Object.Align           =   0
  621.          DrawTransparent =   -1  'True
  622.          ButtonCheckedIndex=   -1
  623.          ButtonUnCheckedIndex=   -1
  624.          ButtonGrayedIndex=   -1
  625.          ButtonOptionedIndex=   -1
  626.          ButtonUnOptionedIndex=   -1
  627.          ButtonExpandedIndex=   -1
  628.          ButtonCollapsedIndex=   -1
  629.          ButtonNonChildIndex=   -1
  630.       End
  631.       Begin ISTViewX.OutlineTreeViewX OutlineTreeViewX1 
  632.          Height          =   3165
  633.          Left            =   -74850
  634.          TabIndex        =   14
  635.          Top             =   2670
  636.          Width           =   4695
  637.          Style           =   0
  638.          IntegralHeightItem=   1
  639.          Customizable    =   0   'False
  640.          CustomizeMenustring=   "Customize..."
  641.          ClickKey        =   113
  642.          Flat            =   -1  'True
  643.          WidthOutline    =   200
  644.          HeadersHeight   =   17
  645.          ValuesText      =   "Password"
  646.          PropText        =   "Login"
  647.          BackgroundColor =   14737632
  648.          SelectedBackgroundColor=   14737632
  649.          Borderstyle     =   0
  650.          Ctl3D           =   0   'False
  651.          AutoExpand      =   0   'False
  652.          HotTrack        =   -1  'True
  653.          ToolTips        =   0   'False
  654.          TooltipColor    =   -2147483624
  655.          ToolTipPause    =   2000
  656.          BiDiMode        =   0
  657.          DragCursor      =   -12
  658.          ChangeDelay     =   0
  659.          Object.DragMode        =   0
  660.          Enabled         =   -1  'True
  661.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  662.             Name            =   "Tahoma"
  663.             Size            =   9
  664.             Charset         =   0
  665.             Weight          =   400
  666.             Underline       =   0   'False
  667.             Italic          =   0   'False
  668.             Strikethrough   =   0   'False
  669.          EndProperty
  670.          Indent          =   19
  671.          ParentColor     =   0   'False
  672.          ParentFont      =   0   'False
  673.          SortType        =   0
  674.          Object.Visible         =   -1  'True
  675.          DoubleBuffered  =   0   'False
  676.          Cursor          =   0
  677.          InternalProps   =   $"Form1.frx":F313
  678.          TreeShowlines   =   -1  'True
  679.          TreeShowLogic   =   0   'False
  680.          TreeShowButtons =   -1  'True
  681.          TreeNoPaintNoChilds=   -1  'True
  682.          TreeDrawGrid    =   -1  'True
  683.          TreeResizeCols  =   -1  'True
  684.          TreeEditing     =   -1  'True
  685.          TreeAlwaysShowEditor=   0   'False
  686.          TreePopupOnClick=   0   'False
  687.          TreeRefreshChilds=   0   'False
  688.          TreeRefreshParents=   0   'False
  689.          TreeDrawImages  =   0   'False
  690.          TreeUseIntegralHeight=   0   'False
  691.          TreeShowHeaders =   -1  'True
  692.          TreeWordWrap    =   0   'False
  693.          TreeDrawSplit   =   -1  'True
  694.          Object.Align           =   0
  695.          DrawTransparent =   -1  'True
  696.          ButtonCheckedIndex=   -1
  697.          ButtonUnCheckedIndex=   -1
  698.          ButtonGrayedIndex=   -1
  699.          ButtonOptionedIndex=   -1
  700.          ButtonUnOptionedIndex=   -1
  701.          ButtonExpandedIndex=   1
  702.          ButtonCollapsedIndex=   0
  703.          ButtonNonChildIndex=   -1
  704.       End
  705.       Begin VB.TextBox Text1 
  706.          BackColor       =   &H80000016&
  707.          BorderStyle     =   0  'None
  708.          BeginProperty Font 
  709.             Name            =   "Tahoma"
  710.             Size            =   9
  711.             Charset         =   204
  712.             Weight          =   400
  713.             Underline       =   0   'False
  714.             Italic          =   0   'False
  715.             Strikethrough   =   0   'False
  716.          EndProperty
  717.          Height          =   4635
  718.          Left            =   -74820
  719.          MultiLine       =   -1  'True
  720.          ScrollBars      =   3  'Both
  721.          TabIndex        =   23
  722.          Text            =   "Form1.frx":1059E
  723.          Top             =   1080
  724.          Width           =   6015
  725.       End
  726.       Begin VB.CheckBox Check7 
  727.          Caption         =   "OnSelectedchanging"
  728.          Height          =   225
  729.          Left            =   -70620
  730.          TabIndex        =   21
  731.          Top             =   3060
  732.          Width           =   1875
  733.       End
  734.       Begin VB.CheckBox Check6 
  735.          Caption         =   "OnSelectedChanged"
  736.          Height          =   225
  737.          Left            =   -70620
  738.          TabIndex        =   20
  739.          Top             =   2760
  740.          Width           =   1815
  741.       End
  742.       Begin VB.CheckBox Check5 
  743.          Caption         =   "ToolTips"
  744.          Height          =   255
  745.          Left            =   -70620
  746.          TabIndex        =   19
  747.          Top             =   2460
  748.          Width           =   1935
  749.       End
  750.       Begin VB.CheckBox Check4 
  751.          Caption         =   "HotTrack"
  752.          Height          =   255
  753.          Left            =   -70620
  754.          TabIndex        =   18
  755.          Top             =   2160
  756.          Width           =   1995
  757.       End
  758.       Begin VB.CheckBox Check3 
  759.          Caption         =   "SingleExpand"
  760.          Height          =   315
  761.          Left            =   -70620
  762.          TabIndex        =   17
  763.          Top             =   1860
  764.          Width           =   1935
  765.       End
  766.       Begin VB.CheckBox Check2 
  767.          Caption         =   "Wordwrap"
  768.          Height          =   255
  769.          Left            =   -70620
  770.          TabIndex        =   16
  771.          Top             =   1380
  772.          Value           =   1  'Checked
  773.          Width           =   1815
  774.       End
  775.       Begin VB.CheckBox Check1 
  776.          Caption         =   "OnIntegralHeightItem"
  777.          Height          =   315
  778.          Left            =   -70620
  779.          TabIndex        =   15
  780.          Top             =   1620
  781.          Value           =   1  'Checked
  782.          Width           =   1995
  783.       End
  784.       Begin VB.Label Label2 
  785.          AutoSize        =   -1  'True
  786.          Caption         =   "Select Options:"
  787.          Height          =   195
  788.          Left            =   -71430
  789.          TabIndex        =   11
  790.          Top             =   1170
  791.          Width           =   1080
  792.       End
  793.       Begin VB.Label Label1 
  794.          AutoSize        =   -1  'True
  795.          Caption         =   "Show some styles of inplace editors for item's cells"
  796.          BeginProperty Font 
  797.             Name            =   "Tahoma"
  798.             Size            =   9
  799.             Charset         =   204
  800.             Weight          =   700
  801.             Underline       =   0   'False
  802.             Italic          =   0   'False
  803.             Strikethrough   =   0   'False
  804.          EndProperty
  805.          Height          =   210
  806.          Index           =   5
  807.          Left            =   -74760
  808.          TabIndex        =   10
  809.          Top             =   1140
  810.          Width           =   5415
  811.          WordWrap        =   -1  'True
  812.       End
  813.       Begin VB.Label Label1 
  814.          AutoSize        =   -1  'True
  815.          Caption         =   "Tip: Hotkey for Edit Mode - F2"
  816.          BeginProperty Font 
  817.             Name            =   "Tahoma"
  818.             Size            =   9
  819.             Charset         =   204
  820.             Weight          =   700
  821.             Underline       =   0   'False
  822.             Italic          =   0   'False
  823.             Strikethrough   =   0   'False
  824.          EndProperty
  825.          ForeColor       =   &H000000FF&
  826.          Height          =   210
  827.          Index           =   4
  828.          Left            =   -74850
  829.          TabIndex        =   9
  830.          Top             =   1470
  831.          Width           =   2775
  832.       End
  833.       Begin VB.Label Label1 
  834.          AutoSize        =   -1  'True
  835.          Caption         =   "Tip: Toggle State Of Node - Insert Key!"
  836.          BeginProperty Font 
  837.             Name            =   "Tahoma"
  838.             Size            =   9
  839.             Charset         =   204
  840.             Weight          =   700
  841.             Underline       =   0   'False
  842.             Italic          =   0   'False
  843.             Strikethrough   =   0   'False
  844.          EndProperty
  845.          ForeColor       =   &H000000FF&
  846.          Height          =   210
  847.          Index           =   3
  848.          Left            =   150
  849.          TabIndex        =   5
  850.          Top             =   1380
  851.          Width           =   3570
  852.       End
  853.       Begin VB.Label Label1 
  854.          AutoSize        =   -1  'True
  855.          Caption         =   "Login and Input your password:"
  856.          BeginProperty Font 
  857.             Name            =   "Tahoma"
  858.             Size            =   9
  859.             Charset         =   204
  860.             Weight          =   700
  861.             Underline       =   0   'False
  862.             Italic          =   0   'False
  863.             Strikethrough   =   0   'False
  864.          EndProperty
  865.          Height          =   210
  866.          Index           =   2
  867.          Left            =   -74760
  868.          TabIndex        =   3
  869.          Top             =   2310
  870.          Width           =   2985
  871.       End
  872.       Begin VB.Label Label1 
  873.          AutoSize        =   -1  'True
  874.          Caption         =   "Tip: Hotkey for Edit Mode - F2"
  875.          BeginProperty Font 
  876.             Name            =   "Tahoma"
  877.             Size            =   9
  878.             Charset         =   204
  879.             Weight          =   700
  880.             Underline       =   0   'False
  881.             Italic          =   0   'False
  882.             Strikethrough   =   0   'False
  883.          EndProperty
  884.          ForeColor       =   &H000000FF&
  885.          Height          =   210
  886.          Index           =   1
  887.          Left            =   -74790
  888.          TabIndex        =   2
  889.          Top             =   1860
  890.          Width           =   2775
  891.       End
  892.       Begin VB.Label Label1 
  893.          AutoSize        =   -1  'True
  894.          Caption         =   "Show how to use input and output data with using passwords."
  895.          BeginProperty Font 
  896.             Name            =   "Tahoma"
  897.             Size            =   9
  898.             Charset         =   204
  899.             Weight          =   700
  900.             Underline       =   0   'False
  901.             Italic          =   0   'False
  902.             Strikethrough   =   0   'False
  903.          EndProperty
  904.          Height          =   420
  905.          Index           =   0
  906.          Left            =   -74850
  907.          TabIndex        =   0
  908.          Top             =   1290
  909.          Width           =   5415
  910.          WordWrap        =   -1  'True
  911.       End
  912.    End
  913. Attribute VB_Name = "Form1"
  914. Attribute VB_GlobalNameSpace = False
  915. Attribute VB_Creatable = False
  916. Attribute VB_PredeclaredId = True
  917. Attribute VB_Exposed = False
  918. Private Sub Check1_Click()
  919.     OutlineTreeViewX5.Refresh
  920. End Sub
  921. Private Sub Check2_Click()
  922.   If Check2.Value = 1 Then
  923.     OutlineTreeViewX5.TreeWordWrap = True
  924.   Else
  925.     OutlineTreeViewX5.TreeWordWrap = False
  926.   End If
  927. End Sub
  928. Private Sub Check3_Click()
  929.   If Check3.Value = 1 Then
  930.     OutlineTreeViewX5.AutoExpand = True
  931.   Else
  932.     OutlineTreeViewX5.AutoExpand = False
  933.   End If
  934. End Sub
  935. Private Sub Check4_Click()
  936.   If Check4.Value = 1 Then
  937.     OutlineTreeViewX5.HotTrack = True
  938.   Else
  939.     OutlineTreeViewX5.HotTrack = False
  940.   End If
  941. End Sub
  942. Private Sub Check5_Click()
  943.   If Check5.Value = 1 Then
  944.     OutlineTreeViewX5.ToolTips = True
  945.   Else
  946.     OutlineTreeViewX5.ToolTips = False
  947.   End If
  948. End Sub
  949. Private Sub Form_Load()
  950.     RefreshOptions
  951.     Text1.Text = "GIVE YOUR APPLICATIONS PROFESSIONAL LOOK & FEEL MS OFFICE97 and OUTLOOK!!!"
  952.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "OutlineTreeViewX - is improved TreeView Control with incredible features:"
  953.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  954.  Fully Customizable : at Design and RunTime"
  955.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  956.  Has different styles: Normal, ExplorerBar, SectionsList"
  957.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  958.  Have internal Imagelist, one for all images dispalyed in Tree!"
  959.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  960.  Each Node have cell with in-place-editors of various styles and can prompt user about entering datas"
  961.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  962.  Nodes can be various heights, text can wordwrapping"
  963.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  964.  AutoExpand,Tooltips, HotTrack, CheckBoxes, OptionButtons - Without the requirements ComCtl 4.7+"
  965.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  966.  The control behind output, input and translation of data is made for"
  967.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "    want of of help of events OnGetNodeData, OnGetPickList,"
  968.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "    OnValidateNodeData, OnEditButtonClick."
  969.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  970.  Many Options for customize drawing Node"
  971.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  972.  Office97, Outlook look and feel "
  973.     Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + "
  974.  Header with resized Columns."
  975.     SSTab1.Tab = 0
  976. End Sub
  977. Private Sub OutlineTreeViewX1_OnGetEditStyle(aEditStyle As ISTViewX.TxEditStyle, ByVal Node As ISTViewX.TreeItem)
  978.     aEditStyle = etsSimple
  979. End Sub
  980. Private Sub OutlineTreeViewX1_OnGetNodeData(aData As String, PwdChar As Boolean, MaxLength As Long, ByVal Node As ISTViewX.TreeItem)
  981.    aData = OutlineTreeViewX1.GetItemData(Node)
  982.    PwdChar = True
  983.    If (aData = "") And (OutlineTreeViewX1.ItemLevel(Node) > 0) And (OutlineTreeViewX1.GetSelectedItem = Node) Then
  984.         aData = "<Enter Password>"
  985.         PwdChar = False
  986.    End If
  987.    MaxLength = 0
  988. End Sub
  989. Private Sub OutlineTreeViewX1_OnIsReadOnlyNode(aReadOnly As Boolean, ByVal Node As ISTViewX.TreeItem)
  990.     If OutlineTreeViewX1.ItemLevel(Node) = 0 Then
  991.         aReadOnly = True
  992.         MsgBox "For Departments password Not required!", vbOKOnly, "Warning"
  993.     Else: aReadOnly = False
  994.    End If
  995. End Sub
  996. Private Sub OutlineTreeViewX1_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  997.     If Len(aData) >= 6 Then
  998.        OutlineTreeViewX1.SetItemData Node, aData
  999.        MsgBox "Password Accepted!", vbOKOnly, "Information"
  1000.     Else
  1001.       MsgBox "Password Not Accepted: Required 6 or more symbols", vbOKOnly, "Information"
  1002.     End If
  1003. End Sub
  1004. Private Sub OutlineTreeViewX2_OnEditButtonClick(ByVal Node As ISTViewX.TreeItem)
  1005.    'get data from tree
  1006.    aTreeData$ = OutlineTreeViewX2.GetItemData(Node)
  1007.    ' firing input Box
  1008.    EnterStr$ = InputBox("Please, enter data:", "Entering Datas", aTreeData$)
  1009.    ' setting data
  1010.    If (EnterStr <> aTreeData) And (EnterStr <> "") Then
  1011.         OutlineTreeViewX2.SetItemData Node, EnterStr$
  1012.    End If
  1013. End Sub
  1014. Private Sub OutlineTreeViewX2_OnGetEditStyle(aEditStyle As ISTViewX.TxEditStyle, ByVal Node As ISTViewX.TreeItem)
  1015. Select Case OutlineTreeViewX2.ItemAbsoluteIndex(Node)
  1016.     Case 0, 1: aEditStyle = etsSimple
  1017.     Case 2: aEditStyle = etsPickList
  1018.     Case 3: aEditStyle = etsCheckList
  1019.     Case 4: aEditStyle = etsEllipsis
  1020. End Select
  1021. End Sub
  1022. Private Sub OutlineTreeViewX2_OnGetNodeData(aData As String, PwdChar As Boolean, MaxLength As Long, ByVal Node As ISTViewX.TreeItem)
  1023.         'getting data from tree
  1024.         aData = OutlineTreeViewX2.GetItemData(Node)
  1025.         ' processing pwd char
  1026.         If OutlineTreeViewX2.ItemAbsoluteIndex(Node) <> 1 Then
  1027.             PwdChar = False
  1028.         Else: PwdChar = True
  1029.        End If
  1030. End Sub
  1031. Private Sub OutlineTreeViewX2_OnGetPicklist(aPickList As String, ByVal Node As ISTViewX.TreeItem)
  1032. Select Case OutlineTreeViewX2.ItemAbsoluteIndex(Node)
  1033.     'forming list of data separated char #13
  1034.     Case 2: aPickList = "Item1" + Chr(13) + "Item2" + Chr(13) + "Item3" + Chr(13) + "Item4"
  1035.     Case 3: aPickList = "Checkbox1" + Chr(13) + "Checkbox2" + Chr(13) + "Checkbox3" + Chr(13) + "Checkbox4"
  1036. End Select
  1037. End Sub
  1038. Private Sub OutlineTreeViewX2_OnIsReadOnlyNode(aReadOnly As Boolean, ByVal Node As ISTViewX.TreeItem)
  1039.     ' setting flag to readOnly
  1040.     aReadOnly = OutlineTreeViewX2.ItemAbsoluteIndex(Node) = 5
  1041. End Sub
  1042. Private Sub OutlineTreeViewX2_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1043.     ' input data to Tree
  1044.     OutlineTreeViewX2.SetItemData Node, aData
  1045. End Sub
  1046. Private Sub OutlineTreeViewX3_OnGetNodeData(aData As String, PwdChar As Boolean, MaxLength As Long, ByVal Node As ISTViewX.TreeItem)
  1047.     aData = OutlineTreeViewX3.GetItemData(Node)
  1048. End Sub
  1049. Private Sub OutlineTreeViewX3_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1050.     OutlineTreeViewX3.SetItemData Node, aData
  1051. End Sub
  1052. Private Sub OutlineTreeViewX4_OnAfterApply()
  1053.     RefreshOptions
  1054. End Sub
  1055. Private Sub OutlineTreeViewX4_OnAfterCustomize()
  1056.     RefreshOptions
  1057. End Sub
  1058. Private Sub OutlineTreeViewX4_OnStateChange(ByVal Oldindex As Long, ByVal Node As ISTViewX.TreeItem)
  1059. If OutlineTreeViewX4.GetItemStateIndex(Node) = 2 Then 'checked state
  1060.   aState = True
  1061.     aState = False
  1062. End If
  1063. Select Case OutlineTreeViewX4.ItemAbsoluteIndex(Node)
  1064.     Case 0:     OutlineTreeViewX3.TreeShowlines = aState
  1065.     Case 1:     OutlineTreeViewX3.TreeShowLogic = aState
  1066.     Case 2:     OutlineTreeViewX3.TreeShowButtons = aState
  1067.     Case 3:     OutlineTreeViewX3.TreeNoPaintNoChilds = aState
  1068.     Case 4:     OutlineTreeViewX3.TreeDrawGrid = aState
  1069.     Case 5:     OutlineTreeViewX3.TreeResizeCols = aState
  1070.     Case 6:     OutlineTreeViewX3.TreeEditing = aState
  1071.     Case 7:     OutlineTreeViewX3.TreeAlwaysShowEditor = aState
  1072.     Case 8:     OutlineTreeViewX3.TreeDrawSplit = aState
  1073. End Select
  1074. End Sub
  1075. Public Sub RefreshOptions()
  1076. For i = 0 To OutlineTreeViewX4.Count - 1
  1077.     Select Case i
  1078.         Case 0:     aState = OutlineTreeViewX3.TreeShowlines
  1079.         Case 1:     aState = OutlineTreeViewX3.TreeShowLogic
  1080.         Case 2:     aState = OutlineTreeViewX3.TreeShowButtons
  1081.         Case 3:     aState = OutlineTreeViewX3.TreeNoPaintNoChilds
  1082.         Case 4:     aState = OutlineTreeViewX3.TreeDrawGrid
  1083.         Case 5:     aState = OutlineTreeViewX3.TreeResizeCols
  1084.         Case 6:     aState = OutlineTreeViewX3.TreeEditing
  1085.         Case 7:     aState = OutlineTreeViewX3.TreeAlwaysShowEditor
  1086.         Case 8:     aState = OutlineTreeViewX3.TreeDrawSplit
  1087.     End Select
  1088.     If aState = True Then
  1089.       OutlineTreeViewX4.SetItemStateIndex OutlineTreeViewX4.Item(i), 2
  1090.     Else
  1091.         OutlineTreeViewX4.SetItemStateIndex OutlineTreeViewX4.Item(i), 1
  1092.     End If
  1093. End Sub
  1094. Private Sub OutlineTreeViewX5_OnGetIntegralHeightItem(aHeight As Long, ByVal Node As ISTViewX.TreeItem)
  1095.    If Check1.Value = 1 Then
  1096.       If OutlineTreeViewX5.ItemLevel(Node) > 0 Then aHeight = 1 Else aHeight = 2
  1097.    Else
  1098.      aHeight = OutlineTreeViewX5.IntegralHeightItem
  1099.    End If
  1100. End Sub
  1101. Private Sub OutlineTreeViewX5_OnGetNodeData(aData As String, PwdChar As Boolean, MaxLength As Long, ByVal Node As ISTViewX.TreeItem)
  1102. aData = OutlineTreeViewX5.GetItemData(Node)
  1103. If (aData = "") And (OutlineTreeViewX5.GetSelectedItem = Node) Then
  1104.         aData = "<Enter your data>"
  1105.  End If
  1106. End Sub
  1107. Private Sub OutlineTreeViewX5_OnSelectedChanged(ByVal OldNode As ISTViewX.TreeItem, ByVal NewNode As ISTViewX.TreeItem)
  1108. If Check6.Value = 1 Then
  1109.     If OldNode <> 0 Then OldNodeText = OutlineTreeViewX5.ItemGetText(OldNode) Else OldNodeText = "UnSelected"
  1110.     If NewNode <> 0 Then NewNodeText = OutlineTreeViewX5.ItemGetText(NewNode) Else NewNodeText = "UnSelected"
  1111.     MsgBox "SelectedChanged: OldNode:" + OldNodeText + " NewNode:" + NewNodeText
  1112.   End If
  1113. End Sub
  1114. Private Sub OutlineTreeViewX5_OnSelectedChanging(ByVal OldNode As ISTViewX.TreeItem, ByVal NewNode As ISTViewX.TreeItem)
  1115.  If Check7.Value = 1 Then
  1116.     If OldNode <> 0 Then OldNodeText = OutlineTreeViewX5.ItemGetText(OldNode) Else OldNodeText = "UnSelected"
  1117.     If NewNode <> 0 Then NewNodeText = OutlineTreeViewX5.ItemGetText(NewNode) Else NewNodeText = "UnSelected"
  1118.     MsgBox "SelectedChanging: OldNode:" + OldNodeText + " NewNode:" + NewNodeText
  1119.   End If
  1120. End Sub
  1121. Private Sub OutlineTreeViewX5_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1122.      OutlineTreeViewX5.SetItemData Node, Data
  1123. End Sub
  1124. Private Sub OutlineTreeViewX7_OnGetNodeData(aData As String, PwdChar As Boolean, MaxLength As Long, ByVal Node As ISTViewX.TreeItem)
  1125.     aData = OutlineTreeViewX7.GetItemData(Node)
  1126.     If aData = "" Then aData = "<Enter Your Data>"
  1127. End Sub
  1128. Private Sub OutlineTreeViewX7_OnIsReadOnlyNode(aReadOnly As Boolean, ByVal Node As ISTViewX.TreeItem)
  1129.     If OutlineTreeViewX7.ItemLevel(Node) = 0 Then aReadOnly = True
  1130. End Sub
  1131. Private Sub OutlineTreeViewX7_OnValidateNodeData(ByVal aData As String, ByVal Node As ISTViewX.TreeItem)
  1132.         ' input data to Tree
  1133.     OutlineTreeViewX3.SetItemData Node, aData
  1134. End Sub
  1135. Private Sub SSTab1_Click(PreviousTab As Integer)
  1136.    If SSTab1.Tab = 4 Then RefreshOptions
  1137. End Sub
  1138.